﻿Namespace ViewModel
    Public Class CommandViewModel
        Inherits AbstractViewModel

#Region "Constructors"

        Public Sub New(ByVal name As String, ByVal command As ICommand)
            If command Is Nothing Then
                Throw New ArgumentException("command")
            End If
            Me.DisplayName = name
            Me.Command = command
        End Sub

#End Region

#Region "Properties"

        Protected _command As ICommand
        Public Property Command() As ICommand
            Get
                Return _command
            End Get
            Private Set(ByVal value As ICommand)
                _command = value
            End Set
        End Property

#End Region

    End Class
End Namespace
